home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 28 / Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_B.d64 / >> ende << - 018 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  43 lines
  1. 10 poke53280,.:poke53281,.:print"[147]";
  2. 15 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,33:pokes+4,65
  3. 16 data0,26,8,205,0,202,34
  4. 30 t$="[147]wir sind nun    [158] unten angekommen!"
  5. 40 fori=1tolen(t$):print"[145]"chr$(20)tab(17)mid$(t$,i,1)
  6. 70 forp=0to100:nextp:nexti:
  7. 90 t$="wer will, [145]kann oben [145][129]wieder    [145][150]anfangen..[145]  "
  8. 110 fori=1tolen(t$):print"  "chr$(20)tab(19)mid$(t$,i,11)
  9. 120 forp=0to100:nextp:nexti:
  10. 125 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,17:pokes+4,65
  11. 126 data0,44,6,102,0,202,42
  12. 140 print"... hier ist naemlich ...  ";:ti$="000002":wait161,1:goto145
  13. 145 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,129:pokes+4,65
  14. 146 data0,14,4,202,0,239,45
  15. 148 poke56325,2
  16. 150 forx=.to15:print"[157][157][157][157][157][157]";:next
  17. 190 forx=.to400:next:print" e[159] ";
  18. 210 forx=.to410:next:print" n[156] ";
  19. 230 forx=.to420:next:print" d ";
  20. 250 forx=.to430:next:print" e ";
  21. 270 forx=.to440:next:print" [154]! ";   :
  22. 310 print"":poke56325,58
  23. 370 ti$="000003":wait161,1:
  24. 372 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,129:pokes+4,128
  25. 373 data0,14,4,202,0,239,45
  26. 390 poke53280,.:poke53281,.:poke646,12
  27. 410 t$="[147]********************   [158]ciao!"
  28. 420 t$=t$+"                            [151]lukian   "
  29. 430 fori=1tolen(t$):print"[145]"chr$(20)tab(19)mid$(t$,i,1)
  30. 450 forp=0to100:nextp:nexti
  31. 470 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,65 :pokes+4,64
  32. 490 data4,10,8,2,4,10,45:goto500
  33. 500 print"abschied oder directory?    <a/d>"
  34. 501 poke198,0:wait198,1:geta$
  35. 502 ifa$=chr$(65)then 600
  36. 503 ifa$=chr$(68)then 700
  37. 550 goto501
  38. 600 poke53280,6:poke53281,6:poke646,14:sys58253
  39. 700 print"[147][144]load"chr$(34)"$";
  40. 701 printchr$(34)",8":print:print
  41. 702 print:print:print"list"
  42. 703 poke198,3:poke631,19:poke632,13:poke633,13:poke646,14:end
  43.